home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESWIND2.S < prev    next >
Text File  |  1993-03-26  |  2KB  |  74 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.  
  9. ;*************************************************************************
  10. ;*
  11. ;* Window manager routines 2 of 2.
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; wind_get
  17. ;-------------------------------------------------------------------------
  18.  
  19.           globl     _wind_get
  20. _wind_get:
  21. ;          .cargs    #8,handle,field,p1.l,p2.l,p3.l,p4.l
  22.  
  23. handle            =    8
  24. field            =    10
  25. p1                =    12
  26. p2                =    16
  27. p3                =    20
  28. p4                =    24
  29.  
  30.           link        a6,#-10
  31.           move.l    #$68020500,d0       ; AControl  104,2,5,0
  32.  
  33.           moveq.l     #-10,d1
  34.           lea        handle(a6),a1
  35.           jsr        aes_call
  36.  
  37.           moveq.l    #-10,d1
  38.           lea        p1(a6),a1
  39.           jmp        (a0)
  40.  
  41. ;-------------------------------------------------------------------------
  42. ; wind_calc
  43. ;-------------------------------------------------------------------------
  44.  
  45.           globl     _wind_calc
  46. _wind_calc:
  47. ;          .cargs    #8,i1,i2,i3,i4,i5,i6,p1.l,p2.l,p3.l,p4.l
  48.  
  49. i1                =    8
  50. i2                =    10
  51. i3                =    12
  52. i4                =    14
  53. i5                =    16
  54. i6                =    18
  55. p1                 =     20
  56. p2                 =     24
  57. p3                 =     28
  58. p4                 =     32
  59.  
  60.           link        a6,#-10
  61.  
  62.           move.l    #$6C060500,d0       ; AControl  108,6,5,0
  63.  
  64.           moveq.l    #-10,d1
  65.           lea        i1(a6),a1
  66.           jsr        aes_call
  67.  
  68.           moveq.l    #-10,d1
  69.           lea        p1(a6),a1
  70.           jmp        (a0)
  71.  
  72. ;          end of code
  73.  
  74.